home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 4-Demos / Third Party Demos / Utilities / In⁄Out™ / In_Out™ / card_3543.txt < prev    next >
Text File  |  1990-04-09  |  9KB  |  450 lines
  1. -- card: 3543 from stack: in
  2. -- bmap block id: 4279
  3. -- flags: 0000
  4. -- background id: 2649
  5. -- name: Automation
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=61 top=84 right=107 bottom=203
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: New Button
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go to card "Automation"
  23. end mouseUp
  24.  
  25.  
  26.  
  27. -- part 2 (button)
  28. -- low flags: 00
  29. -- high flags: 0000
  30. -- rect: left=61 top=116 right=139 bottom=203
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: New Button
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   go to card "Sorting"
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 3 (button)
  47. -- low flags: 00
  48. -- high flags: 0000
  49. -- rect: left=61 top=147 right=170 bottom=203
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: New Button
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   go to card "HotKeys"
  61. end mouseUp
  62.  
  63.  
  64.  
  65. -- part 4 (button)
  66. -- low flags: 00
  67. -- high flags: 0000
  68. -- rect: left=61 top=179 right=202 bottom=203
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 1
  72. -- font id: 0
  73. -- text size: 12
  74. -- style flags: 0
  75. -- line height: 16
  76. -- part name: New Button
  77. ----- HyperTalk script -----
  78. on mouseUp
  79.   go to card "Display"
  80. end mouseUp
  81.  
  82.  
  83.  
  84. -- part 5 (button)
  85. -- low flags: 00
  86. -- high flags: 0000
  87. -- rect: left=61 top=211 right=234 bottom=203
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: New Button
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   go to card "General"
  99. end mouseUp
  100.  
  101.  
  102.  
  103. -- part 7 (field)
  104. -- low flags: 00
  105. -- high flags: 0000
  106. -- rect: left=319 top=252 right=272 bottom=348
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 0
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: 
  115.  
  116.  
  117. -- part 8 (button)
  118. -- low flags: 00
  119. -- high flags: 2000
  120. -- rect: left=315 top=286 right=308 bottom=377
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 0 / 0
  123. -- text alignment: 1
  124. -- font id: 0
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: OK
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   go card "SLBnames"
  132. end mouseUp
  133.  
  134.  
  135.  
  136. -- part 9 (button)
  137. -- low flags: 00
  138. -- high flags: 2000
  139. -- rect: left=383 top=286 right=308 bottom=445
  140. -- title width / last selected line: 0
  141. -- icon id / first selected line: 0 / 0
  142. -- text alignment: 1
  143. -- font id: 0
  144. -- text size: 12
  145. -- style flags: 0
  146. -- line height: 16
  147. -- part name: OK
  148. ----- HyperTalk script -----
  149. on mouseUp
  150.   go to card "SLBnames"
  151. end mouseUp
  152.  
  153.  
  154.  
  155. -- part 11 (button)
  156. -- low flags: 00
  157. -- high flags: 2006
  158. -- rect: left=224 top=55 right=73 bottom=419
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 0 / 0
  161. -- text alignment: 1
  162. -- font id: 0
  163. -- text size: 12
  164. -- style flags: 0
  165. -- line height: 16
  166. -- part name: New Button
  167. ----- HyperTalk script -----
  168. on mouseUp
  169.  
  170.   set the hilite of card button 9 to FALSE
  171.   set the hilite of card button 10 to FALSE
  172.   set the hilite of card button 11 to FALSE
  173.  
  174.   set the HILITE of ME to TRUE
  175.  
  176. end mouseUp
  177.  
  178.  
  179.  
  180. -- part 13 (field)
  181. -- low flags: 01
  182. -- high flags: 0000
  183. -- rect: left=287 top=73 right=91 bottom=418
  184. -- title width / last selected line: 0
  185. -- icon id / first selected line: 0 / 0
  186. -- text alignment: 0
  187. -- font id: 0
  188. -- text size: 12
  189. -- style flags: 0
  190. -- line height: 16
  191. -- part name: start
  192. ----- HyperTalk script -----
  193. on mouseDown
  194.   put line 1 of card field "Start" into zapper
  195.   put "I am IN ,I am at Lunch ,I am out of the office" into MENU
  196.  
  197.  
  198.  
  199.   Get HPopupMenu(menu,0,69,280)
  200.   if it is not zero then
  201.  
  202.     Put Item 1 of it into TheLine
  203.     if TheLine is not empty then
  204.       put theLine into card field "Start"
  205.     else
  206.       put zapper into card field "Start"
  207.     end if
  208.  
  209.     If TheLine=1 then
  210.       put it into card field "Start"
  211.     end if
  212.  
  213.  
  214.   end if
  215.  
  216. end mouseDown
  217.  
  218.  
  219.  
  220. -- part 14 (field)
  221. -- low flags: 01
  222. -- high flags: 0000
  223. -- rect: left=288 top=171 right=189 bottom=419
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 0 / 0
  226. -- text alignment: 0
  227. -- font id: 0
  228. -- text size: 12
  229. -- style flags: 0
  230. -- line height: 16
  231. -- part name: shut
  232. ----- HyperTalk script -----
  233. on mouseDown
  234.   put line 1 of card field "Shut" into zapper
  235.   put "I am IN ,I am at Lunch ,I am out of the office" into MENU
  236.  
  237.  
  238.  
  239.   Get HPopupMenu(menu,0,170,280)
  240.  
  241.  
  242.   if it is not zero then
  243.  
  244.     Put Item 1 of it into TheLine
  245.     if TheLine is not empty then
  246.       put theLine into card field "Shut"
  247.     else
  248.       put zapper into card field "Shut"
  249.     end if
  250.  
  251.  
  252.  
  253.  
  254.     If TheLine=1 then
  255.       put it into card field "Shut"
  256.     end if
  257.  
  258.  
  259.   end if
  260.  
  261. end mouseDown
  262.  
  263.  
  264.  
  265. -- part 15 (button)
  266. -- low flags: 00
  267. -- high flags: 2006
  268. -- rect: left=224 top=109 right=127 bottom=421
  269. -- title width / last selected line: 0
  270. -- icon id / first selected line: 0 / 0
  271. -- text alignment: 1
  272. -- font id: 0
  273. -- text size: 12
  274. -- style flags: 0
  275. -- line height: 16
  276. -- part name: New Button
  277. ----- HyperTalk script -----
  278. on mouseUp
  279.  
  280.   set the hilite of card button 10 to FALSE
  281.   set the hilite of card button 11 to FALSE
  282.   set the hilite of card button 8 to FALSE
  283.  
  284.   set the HILITE of ME to TRUE
  285.  
  286. end mouseUp
  287.  
  288.  
  289.  
  290. -- part 16 (button)
  291. -- low flags: 00
  292. -- high flags: 6006
  293. -- rect: left=224 top=73 right=91 bottom=287
  294. -- title width / last selected line: 0
  295. -- icon id / first selected line: 0 / 0
  296. -- text alignment: 1
  297. -- font id: 0
  298. -- text size: 12
  299. -- style flags: 0
  300. -- line height: 16
  301. -- part name: New Button
  302. ----- HyperTalk script -----
  303. on mouseUp
  304.  
  305.   set the hilite of card button 9 to FALSE
  306.   set the hilite of card button 11 to FALSE
  307.   set the hilite of card button 8 to FALSE
  308.  
  309.   set the HILITE of ME to TRUE
  310.  
  311. end mouseUp
  312.  
  313.  
  314.  
  315. -- part 17 (button)
  316. -- low flags: 00
  317. -- high flags: 2006
  318. -- rect: left=224 top=92 right=109 bottom=420
  319. -- title width / last selected line: 0
  320. -- icon id / first selected line: 0 / 0
  321. -- text alignment: 1
  322. -- font id: 0
  323. -- text size: 12
  324. -- style flags: 0
  325. -- line height: 16
  326. -- part name: New Button
  327. ----- HyperTalk script -----
  328. on mouseUp
  329.  
  330.   set the hilite of card button 9 to FALSE
  331.   set the hilite of card button 10 to FALSE
  332.   set the hilite of card button 8 to FALSE
  333.  
  334.   set the HILITE of ME to TRUE
  335.  
  336. end mouseUp
  337.  
  338.  
  339.  
  340. -- part 18 (button)
  341. -- low flags: 00
  342. -- high flags: 2006
  343. -- rect: left=224 top=152 right=171 bottom=419
  344. -- title width / last selected line: 0
  345. -- icon id / first selected line: 0 / 0
  346. -- text alignment: 1
  347. -- font id: 0
  348. -- text size: 12
  349. -- style flags: 0
  350. -- line height: 16
  351. -- part name: New Button
  352. ----- HyperTalk script -----
  353. on mouseUp
  354.  
  355.   set the hilite of card button 13 to FALSE
  356.   set the hilite of card button 14 to FALSE
  357.   set the hilite of card button 15 to FALSE
  358.  
  359.   set the HILITE of ME to TRUE
  360.  
  361. end mouseUp
  362.  
  363.  
  364.  
  365. -- part 19 (button)
  366. -- low flags: 00
  367. -- high flags: 6006
  368. -- rect: left=224 top=170 right=188 bottom=287
  369. -- title width / last selected line: 0
  370. -- icon id / first selected line: 0 / 0
  371. -- text alignment: 1
  372. -- font id: 0
  373. -- text size: 12
  374. -- style flags: 0
  375. -- line height: 16
  376. -- part name: New Button
  377. ----- HyperTalk script -----
  378. on mouseUp
  379.  
  380.   set the hilite of card button 12 to FALSE
  381.   set the hilite of card button 14 to FALSE
  382.   set the hilite of card button 15 to FALSE
  383.  
  384.   set the HILITE of ME to TRUE
  385.  
  386. end mouseUp
  387.  
  388.  
  389.  
  390. -- part 20 (button)
  391. -- low flags: 00
  392. -- high flags: 2006
  393. -- rect: left=224 top=190 right=207 bottom=420
  394. -- title width / last selected line: 0
  395. -- icon id / first selected line: 0 / 0
  396. -- text alignment: 1
  397. -- font id: 0
  398. -- text size: 12
  399. -- style flags: 0
  400. -- line height: 16
  401. -- part name: New Button
  402. ----- HyperTalk script -----
  403. on mouseUp
  404.  
  405.   set the hilite of card button 12 to FALSE
  406.   set the hilite of card button 13 to FALSE
  407.   set the hilite of card button 15 to FALSE
  408.  
  409.   set the HILITE of ME to TRUE
  410.  
  411. end mouseUp
  412.  
  413.  
  414.  
  415. -- part 21 (button)
  416. -- low flags: 00
  417. -- high flags: 2006
  418. -- rect: left=224 top=207 right=225 bottom=421
  419. -- title width / last selected line: 0
  420. -- icon id / first selected line: 0 / 0
  421. -- text alignment: 1
  422. -- font id: 0
  423. -- text size: 12
  424. -- style flags: 0
  425. -- line height: 16
  426. -- part name: New Button
  427. ----- HyperTalk script -----
  428. on mouseUp
  429.  
  430.   set the hilite of card button 12 to FALSE
  431.   set the hilite of card button 13 to FALSE
  432.   set the hilite of card button 14 to FALSE
  433.  
  434.   set the HILITE of ME to TRUE
  435.  
  436. end mouseUp
  437.  
  438.  
  439.  
  440. -- part contents for card part 7
  441. ----- text -----
  442. 5
  443.  
  444. -- part contents for card part 13
  445. ----- text -----
  446. I am IN 
  447.  
  448. -- part contents for card part 14
  449. ----- text -----
  450. I am out of the office